home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / textra16.lha / Textra116 / Scripts / JForth_Scripts / view.textra < prev    next >
Encoding:
Text File  |  1993-07-12  |  511 b   |  26 lines
  1. /* display JForth source file & word */
  2.  
  3. OPTIONS results
  4.  
  5. parse arg theString   /* get the argument */
  6.  
  7. rex = 0; result = "NOTSUPPORTED"
  8. textraversion
  9. parse var result maj min rex
  10. if (result == "NOTSUPPORTED") | (rex < 2) then do
  11.     notify "Textra V1.12 or later required for this script."
  12.     exit
  13. end
  14.  
  15. theString = UPPER(theString)
  16.  
  17. address 'JFORTH' '" 'theString'" ReturnFileName'
  18.  
  19. if (result ~= "NOT FOUND") then do
  20.     fname = result
  21.     if (fname ~= "RESULT") then do
  22.         openfile '"'fname'"'
  23.         find theString
  24.     end
  25. end
  26.